 ;-----------------------------\
 ;escape 4k demo                 \
 ;made for code craft contest      \
 ;code - tom/kulture 1999            \
 ;------------------------------------ \

 ;Intro part---------------------------------------------------------------|

 swi 256+12

 ;draw the backdrop...
 mov r0,#&64321400
 mov r3,#0
 mov r4,#0
 swi ColourTrans_SetGCOL
 mov r0,#133
 mov r1,#20
 mov r2,#20
 swi OS_Plot

 ;draw the rectangle...
 mov r0,#&b2826400
 mov r3,#0
 mov r4,#0
 swi ColourTrans_SetGCOL
 mov r0,#4
 mov r1,#490*2
 mov r2,#460*2
 swi OS_Plot
 mov r0,#97
 mov r1,#160*2
 mov r2,#6*2
 swi OS_Plot

 ;draw the parrallelogram...
 mov r0,#111
 mov r1,#490*2
 mov r2,#462*2
 swi OS_Plot
 mov r0,#113
 mov r1,#-52*2
 mov r2,#52*2
 swi OS_Plot
 mov r0,#113
 mov r1,#6*2
 mov r2,#0*2
 swi OS_Plot
 mov r0,#113
 mov r1,#52*2
 mov r2,#-52*2
 swi OS_Plot

 ;plot the text...
 adr r1,fname
 mov r2,#12*16*2
 mov r3,#12*16*2
 mov r4,#0
 mov r5,#0
 swi Font_FindFont
 mov r12,r0
 adr r0,colour
 mov r1,#10
 swi OS_WriteN
 mov r0,r12
 adr r1,text
 mov r2,#20
 mov r3,#520*2
 mov r4,#480*2
 swi Font_Paint
 swi Font_LoseFont
 adr r1,fname
 mov r2,#10*16*2
 mov r3,#10*16*2
 mov r4,#0
 mov r5,#0
 swi Font_FindFont
 adr r1,text2
 mov r2,#20
 mov r3,#20*2
 mov r4,#20*2
 swi Font_Paint
 swi Font_LoseFont

 ;end it for now
 b loader_end

.fname
 dcb "Homerton.Bold.Oblique",0
 align
.colour
 ;dcb 23,25,128,1,20,50,100,50,65,100
 dcb 23,25,128,1,20,50,100,100,130,200
 align
.text
 dcb "kulture",0
 align
.text2
 dcb "loading...",0
 align
